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WftT'S MCT a THE QS-9 WMtLD? 

Firstly, we have received from the EUR0S9 usergroup a 
further update on the OS-9 "Cooperation" being 
promoted to benefit OS-9 groups around the world. 

The EUR0S9 July '93 editorial and "Fest" report by 
Peter Tutelaers summarised the decisions reached so 
far. 

1. An article "pool" would be formed from all 
available usergroup newsletters. 

2. Each group would publish a list of PD software in 
their library. 

3. A committee would be formed to speak to MicroWare 
with one voice. 

As another point of interest, it seems .very likely 
that MW will make special offers to usergroups in the 
future. Perhaps along the lines of their CoCoFest 
offering of OS-9000 at US$350 down from the normal 
US$995, This would confirm that MicroWare are 
wanting to support OS-9 usergroups and improve their 
image with personal users. 



EDR0S9 USKRGROUP FDYORK? 

The EUR0S9 Usergroup run by 
Netherlands and Berghard Kinzel 



Peter Tutelaers 
■ Germany, may fold. 



We don't like to hear of any usergroups closing down 
and we hope that a way may be found to keep it going. 

However, Peter explains that due to a new business 
venture, with three other partners, he does not 
expect to have the time to continue the newsletter on 
his own. He also commented that the last article 
presented by other than himself or Berghard was more 
than six months ago. 

Their usergroup has a total of twenty-one (21) 
current members with about six (6) using 0S9/68000, 
the rest use 0S9/6809. 

One suggestion put forward is that the EUR0S9 be 
split in two with the OSK users joining EFFO 
(Usergroup in Switzerland) which caters for ONLY OSK 
industrial users. They have been operating for some 
time and produce a very professional newsletter. 
They have mainly corporate members, using OSK all the 
time and have considerable experience. I am sure 



that new members would be well supported and benefit 
a great deal from membership to this very 
professionally run group. BTW Peter Paschedag 
attended the Chicago CoCoFest as the EFFO 
representative. 

This then leaves the 6809 0S9'ers. Peter has 
suggested that they could join us, the Australian OS- 
9 Usergroup. We welcome any move in this direction 
and hereby extend an invitation to the EUR0S9 members 
if in fact the group does split up. Other 
alternatives of course would include one or more of 
the EUR0S9 members taking over the newsletter 
production. Let's hope that they can find a way of 
keeping it going! 

LATEST JEWS 

It also seems that the U.S. OS-9 Usergroup is not 
without some problems. The latest EUR0S9 news disk 
reports that Jim Destefano, their current president, 
is not happy with the group and is going to step away 
from it. Others, including members of the Chicago 
OS-9 User Group are looking at ways of keeping it 
going. Let's hope that a suitable solution is found. 
- That's the way it is reported, no other 
confirmation received. - Ed. 

THE AUSTMLIAH - HATIOMM. 0S9 USERGRODP 

Do you see a pattern here? This edition August 1993 
brings us to the end of another subscription year. 
Yes, it may be a strange month to end a year but 
that's the way we started out in 1988. HEY! that's 
FIVE years we've done. 

And YES, subscription renewals are due again. We run 
September to end August each year. For those new 
members who have joined us in the past couple of 
months, we will treat your membership as current to 
August 1994. Welcome! 

THE FDTDRB From the above it can be seen that we are 
indeed intending to continue on for another year. 
However, the usual conditions will apply. We have 
stated frofii the beginning that we must have at least 
20 members to make the effort seem worthwhile. 
Current membership is 63 at last count (I think) and 
about six renewals have already been received, 
thankyou. 
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This time however, we need to apply one more 
condition. We NEED contributions to the newsletter. 



The Australian Usergroup is run on a non-profit basis 
for a group of OS-9 users and we produces a monthly 
newsletter aimed at keeping people up to date and to 
share information of any kind which relates to the 
OS-9 operating systems in general. We maintain a PD 
programme library for general distribution and levy a 
subscription and copy charges to cover direct costs. 
No labour or time is included as a cost. We source 
information and PD material from overseas with the 
"cooperation" of other usergroups and at times from 
CompuServe and Delphi {expensive downloads). Other 
sources include the OCN (0S9 Community Network) on 
the Fido network and Internet, thanks to the unpaid 
support of a couple of members. 

It seems to become more difficult to come up with 
interesting material to fill each newsletter, 



particularly when it is 
people at the most. 



left to one, two or three 



We do want to maintain interest in our presentation 
to members and the ONLY way that can happen is 
through member contributions. 

This year we will NEED a commitment from at least 

three meaibers to contribute articles on a regular 

basis OR all subscriptions will be returned and we 
will fold. 

Hey! We have a lot going for us, and apart from the 
U.S. Group, we must be the largest OS-9 Usergroup in 
the world! In fact we may soon need to change our 
name to "The World OS-9 Dsergroup". It's over to you 
to tell us that you want to continue as a usergroup. 
We look forward to hearing from you. 

Cheers, Gordon. 



_ A 
/ \J \ 

I OZ - 0S9 \ 
\ RiBBs 2.1 / 



The National 0S9 Usergroup 

(07) -200-9870 

300/1200/2400 baud. 

20:00 to 22:30 HRS.(AKST) 

(8H1) 

Co-ordinator: Bob Devries (07) -278-7209 
Sysop: Rod Holden 



This is (RiBBS).... A Tandy Coco Based BBS prograi. 

This BBS is accessable to DsergrcH^) Metbers OHLY! 

Feel free to look around , and test out the options, 



0S9 for Ever 



III 



Hi, this is your Sysop once again letting you 
know what type of software is available. Here is a 
colourful utility called JTree which is located in 
the 0S9 Files area on the BBS. This utility is quite 
good when you use the options mentioned below. There 



is only one draw back to this utility is that it 
leaves you in a different colour window, so you have 
to use the 'display lb 24' command to reset your 
screen. Here is the document for JTree. 
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PROGRAM: JT_Color Tree VI. 1 by Jim HoUier 1989 

SYNTAX : JTree [path] [options] 
path : Any legal 0S9 path. 

Will use current directory if not used, 
options: -a display all files in directories 

defaults to displaying only directories. 

-f adds file fragmentation count to File listing, 

-c disables Color Output 

-r disables Recursive Listing 

EXAMPLE: JTree 

JTree /dl 

JTree -a /dl/MYFILES 
JTree -c -f /dO >/p 
JTree -cf /dO >/p 



Suprise Suprise 

I have just received a copy of RiBBs Version 
2.1 which will be placed in the ribbs directory on 
the BBS. There are two files for Ribbs 2.1 which are 
called rb210doc.lzh and ribb210s.lzh. I would 
suggest that when you unpack these files that you 
make yourself a cuppa because there are archives 
inside archives. I am running version 2.1 with some 
minor bugs but this should not effect anyone from 
logging on. 

If any user is running a BBS, could you please send 
me your details and I will make up a list and place 
it on the 0Z-0S9 BBS, remember users only. To date I 



have not received any info on other 0S9 BBses 
operating in Australia or any picture files from 
other users. Sorry if I sound a bit rude but if 
users have something that other users might not have 
well then let's share the software and knowledge to 
help one another. See you in the bit stream, Happy 
CoCoing. 

If any user has any hardware (or software) for sale, 
or is looking to buy some, please send the 
information to me via the BBS, or to Gordon Bentzen, 
who will then pass it on to me. 
Sysop, Rod Holden 



A Basic09 lenu prograMe 

A FD pro^ase f roi tbe Library 

by Henry Helton 



I was having a bit of a browse through our PD library 
today, trying to think of something to write in the 
newsletter, when I came across this little gem. It 
is a programme, written in Basic09, which will let 
you do things from a menu which is described in a 
text file (much like a script file). It is quite a 
good example of Basic09 programming, so have a look 
at it. I feel that some of you may share the 
author's reasons for wanting a menu programme. Here 
are his comments 

MENUS -- by Henry Melton 71545,1042 

Menus is a BASIC09 program designed to give a 

quick and easy way to generate menu-driven 

applications for an 0S9 system. It is a weekend 

project that seems to work pretty well. I needed 



something to help Momma and the kids navigate around 
in a 20m hard disk that is getting close to being 
full. 

Pack MENUS and call it with the filename of a 
menuscript file as its only parameter. The 
menuscript is a simple text file. Any lines 
beginning with a colon ":" are treated as command 
lines. Everything else is just displayed as it is 
read. 

The commands are as follows: 

:display hh hh hh hh 

Display works much like the 0S9 command by 
converting pairs of hex characters to characters and 
displaying them. It is good for clearing the screen 
and positioning the cursor and such things. Non-hex 
characters on the line are ignored. The hex values 



Page 4 



August 1993 



AUSTRALIAN OS9 NEWSLETTER 



must come in pairs — use Oc not just c. 

: shell command 

Shell passes the remainder of the line to be 
processed by the BASIC09 Shell command. It is 
executed when the line is encountered in the script 
file. 

:getkey 

Getkey loops on Inkey until a character is typed 
that matches one of the ones set up by the rat key 
commands, and then it executes the command set up by 
the rat key command. 

tat key char command 

At Key takes two parameters, a single character 
and a command to be executed when the : getkey command 
sees it. The special command END terminates the 
MENUS program and is the only "legal" way out. 
Anything else is passed to the BASIC09 SHELL command 



for processing. 

rnokeys 

Nokeys clears all previous key definitions. 

:restart [menuscriptfile] 

Restart is used to switch to other menuscript 
files, or to start the current one over. Notice that 
and end-of-file is the same as a : restart on the 
current file. In other words, a menuscript will loop 
until an rat key command with the END option is 
selected. 

That is all the options, for now. Menus can be 
chained by the r restart command and nested by using 
an rat keys command. 

I have included a couple of sample menuscripts 
with this package. I'm sure they won't do anything 
useful for you, but they are included as examples 
that work. I call my mainmenu from my startup file. 



Here is the source code: 



PROCEDURE 


menus 


0000 


(* MENUS - A Menu Script Interpreter *) 


0028 


(* Version 1.0 by Henry Melton * 


0055 


PARAM scriptrSTRING[80] 


0061 


DIM scrr INTEGER 


0068 


DIM keyline(24)rSTRING[100] 


0079 


DIM mlinerSTRING[255] 


0085 


DIM newscriptr BOOLEAN 


008C 




008D 10 


(* Begin Script file processing *) 


00B2 


LOOP 


00B4 


maxkey=0 


OOBC 


OPEN tscr,scriptrREAD 


00C8 


newscript=FALSE 


OOCE 


WHILE NOT(newscript) AND N0T(E0F(ltscr)) DO 


OODE 


READ tscr,mline 


00E8 


IF LEFT$(mline,l)="r" THEN 


00F8 


GOSUB 1000 


OOFC 


ELSE 


0100 


PRINT mline 


0105 


ENDIF 


0107 


ENDWHILE 


OlOB 


CLOSE ttscr 


0111 


ENDLOOP 


0115 


END 


0117 




0118 1000 (* Process command lines *) 


0136 


GOSUB 1500 


013A 


IF LEFT$(mline,8)="rdisplay" THEN 


0151 


GOSUB 2000 


0155 


ELSE IF LEFT$(mline,7)="rgetkey" THEN 


016E 


GOSUB 3000 


0172 


ELSE IF LEFT$(mline,7)="rat key" THEN 


018B 


GOSUB 4000 
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018F 


ELSE IF LEFT?(niline,7)=":nokeys" THEN 




01A8 


GOSUB 5000 




OlAC 


ELSE IF LEFT$(iiiline,8)=":restart" THEN 




01C6 


GOSUB 6000 




OICA 


ELSE IF LEPT?(mline,6)=":shell" THEN 




01E2 


GOSUB 7000 




01E6 


ELSE 




OlEA 


PRINT inline 




OlEF 


ENDIF 




OlFl 


ENDIF 




01F3 


ENDIF 




01F5 


ENDIF 




01F7 


ENDIF 




01F9 


ENDIF 




OlFB 


RETURN 




OlFD 






OlFE 






OlFF 1500 (* Lower shift the command line *) 




0224 


FOR i=l TO LENdnline) 




0238 


c?=MID?(mline;i,l) 




0247 


IF ASC(c?)>64 AND ASC(c$)<92 THEN 




025C 


mline=LEFT$(mline,i-l)+CHR$(ASC(c$)+32)+RIGHT?(mline,LEN(mline) 


-i) 


0285 


ENDIF 




0287 


NEXT i 




0292 


RETURN 




0294 






0295 2000 (* Display hex codes to screen *) 




02B9 


hex$="0123456789abcdef" 




02D0 


niline=RIGHT$(mline,LEN(mline)-8) 




02E0 


hflag=0 




02E8 


hval=0 




02F0 


FOR i=l TO LENdnline) 




0304 


c$=MID$(niline,i,l) 




0313 


IF SUBSTR(c$,hex$)>0 THEN 




0323 


IF hflag=l THEN 




0330 


hval=hval*16+SUBSTR(c$,hex?)-l 




0349 


PRINT CHR$(hval); 




0351 


hflag=0 




0359 


hval=0 




0361 


ELSE 




0365 


hflag^l 




036D 


hval=SUBSTR(c$,hex?)-l 




037D 


ENDIF 




037F 


ENDIF 




0381 


NEXT i 




038C 


RETURN 




038E 






038F 3000 (* Get a key and process it *) 




03B0 


done=0 




03B8 


WHILE done=0 DO 




03C5 


SHELL "tmode ,1 -echo" 




03D7 


mline="" 




03DE 


WHILE miine="" DO 




03EA 


RUN inkey(niline) 




03F4 


ENDWHILE 
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03F8 


SHELL "tmode .1 echo" 






0409 


GOSUB 1500 






040D 


FOR i=l TO maxkey 






041F 


IF mline=LEFT$(keyline(i),l) THEN 






0433 


done=l 






043B 


mline=RIGHT$(keyline(i),LEN(keyline(i))-2) 




0453 


mline=TRIM$(mline) 






045C 


IF mline="end" THEN 






046B 


PRINT "" 






046F 


END 






0471 


ELSE 






0475 


SHELL mline 






047A 


ENDIF 






047C 


ENDIF 






047E 


NEXT i 






0489 


ENDWHILE 






048D 


RETURN 






048F 








0490 4000 (* Assign a run string to a key value *) 






04BB 


maxkey =maxkey+l 






04C7 


keyline(maxkey)=RIGHT$(mline,LEN(mline)-8) 






04DC 


RETURN 






04DE 








04DF 5000 (* Remove all key definitions *) 






0502 


maxkey=0 






050A 


RETURN 






050C 








050D 6000 (* restart this or some other script file *) 






053C 


mline=RIGHT$(mline+" ",LEN(mline)-9) 






0551 


mline=TRIM${mline) 






055A 


IF mline>"" THEN 






0566 


script=mline 






056E 


newscript=TRUE 






0574 


ENDIF 






0576 


RETURN 






0578 








0579 7000 (* Process shell command *) 






0597 


mline=RIGHT$(mline,LEN(mline)-7) 






05A7 


fflline=TRIM$(mline) 






05B0 


ON ERROR GOTO 7010 






05B6 


(* run shell command — trap errors *) 






05DC 


SHELL mline 






05E1 7010 ON ERROR 






05E7 


RETURN 






Here is the first of two sarole srrintii for Bprnis: 


ViewBills 




rdisplay 


Oc 07 




Main Menu 


-- Type a letter 


:at key g BenusC'/hO/etc/gamesmenu") 




:shell calendar 


:at key s /hO/etc/calc 




:shell date t 


:at key p tenuslVhO/etc/picsmehu") 








:at key q end 




Games Spreadsheet Pictures Quit 


:at key t /hO/etc/tsnienu 




Tsedit BibleSearch Databases 


:at key b /hO/etc/bible 





August 1993 Page 7 



AUSTRALIAN OS9 NEWSLETTER 



:at key d /hO/etc/db Winnie-the-Pooh Koronis-Rift 

rat key v /hO/etc/vb Rogiie Fractalis(Rescue) 

:getkey Carmen- Sand i ego MainMenu 

:at key w /hO/etc/winnie 
:at key k /hO/etc/rift 
Here is the second script: :at key r /hO/etc/rogue 

:at key f /hO/etc/rescue 
tdisplay Oc 07 :at key c /hO/etc/carmen 

Game Menu -- Type a letter :at key n end 

:shell date t :getkey 



6809 0S9 Systd Dtilities 

FrcM the PD Library 

by Ron Lanardo 

These utility programmes are written in assembler by Ron Lammardo, who also wrote Shellplus, which we all use. 
Well, we do don't we? The utils are: 

LINK LOAD UNLINK SAVE MERGE DEL MAKDIR 

Here's Ron's own instructions: 

This archive contains a set of utilities which are enhanced to provide detailed error reporting, correct skiping 
of spaces/commas between names on parameter line and other features documented below. 

The enhanced error reporting consists of displaying the parameter line from the spot where the error took place. 
If you were trying to do a "load utilsl utils2 utils3 utils4" and the file "utils3" did not exist, the message 

Error Loading :utils3 utils4 

Error 1216 would be printed. 

The following modules are included in this archive: 

DEL - 

LOAD - Now uses F$NmLoad call, allowing you to load more than 48k worth of modules at once. 

LINK - Now uses F$NMLink call, allowing you to link more than 48k worth of modules. 

MAKDIR - 

UNLINK - 

SAVE - Allows overwrite/append of output file by prefixing with -/+ . 

Examples : 

save /hO/utilsl load link ..creates file /hO/utilsl 

save -/hO/utilsl load link ..overwrites /hO/utilsl 
save +/hO/utilsl del ..appends del to /hO/utilsl 

MERGE - Supports input from standard input path with use of the -z option, with file names one to a line. 

Examples : 

merge load link >utilsl ..merges load & link into file utilsl 

merge <utilsl.list >utilsl ..merges files named in file utilsl. list into file utilsl 

Ron Lammardo 75706,336 
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Here's 


the source code for the first one: 


beq linkOlO 








cmpa t$20 was it a space 


nam 


Link 




beq linkOlO 


ttl 


Enhanced Link command 


by Ron Lammardo 


cmpa t$Od was it a <cr> 


if pi 






beq clrexit yes.. done 


use 


/dd/defs/os9defs 




leax -l,x 


endc 






bra start else get next module 


typelang set 


prgrm+objct 






attrev set 


reent+revision 




link020 


revision set 


1 




pshs b,cc save message 


mod 


Eom, Mname, Typelang, AttreV;Start, Datend 


leax errmsg, per get address of error message 


mname fcs 


/Link/ 




Idy terrsz get size off error message 


fcb 


1 




Ida 12 std error path 


xsave rmb 


2 




os9 I$Write send it 


rmb 


256 




bcs linkOSO if error.. dont print rest 


datend equ 


, 




Idx <xsave get start of module in error 


errmsg 






Idy i200 max size to send 


fee 'Error Linking :' 




Ida 112 std error path 


errsz equ *-( 


errmsg 




os9 I$WritLn send it 


start 






link030 


stx <xsave save start of name 




puis b/CC 


clra any type/language 


, 


bra exit exit with error 


clrb 








os9 F$NMLink try linking module 




clrexit clrb 


bcs link020 ; 


if error... go print it 




exit os9 F$exit 


linkOlO 








Ida ;X+ get i 


lext character 




emod 


cmpa t', was 


it a comma 




eom equ * 



nam 


Load 


ttl 


Enhanced load command by Ron Lammardo 


ifpl 




use 


/dd/defs/os9defs 


endc 




typelang set 


prgrm+objct 


attrev set 


reent+revision 


revision set 


1 


mod 


Eom^Hname, Typelang, Attrev, Start, Datend 


mname fcs 


/Load/ 


fcb 


1 


xsave rmb 


2 


rmb 


256 


datend equ 


. 


errmsg 




fee 'Error Loading :' 


errsz equ *-errmsg 



start 

stx <xsave save start of name 
clra any type/language 
os9 F$NHLoad try loading module 



bcs load020 if error... go print it 

loadOlO 

Ida ,x+ get next character 
cmpa t'; was it a comma 
beq loadOlO 

cmpa t$20 was it a space 
beq loadOlO 

cmpa it?Od was it a <cr> 
beq clrexit yes.. done 
leax -l,x back up and point to char 
bra start else get next module 

load020 

pshs b,ec save message 

leax errfflsg,pcr get address of error message 
Idy terrsz get size off error message 
Ida U std error path 
os9 IjWrite send it 
bcs load030 if error.. dont print rest 
Idx <xsave get start of module in error 
Idy 1(200 lax size to send 
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Ida U std error path 
os9 I$WritLn send it 

load030 
puis b,cc 
bra exit exit with error 



clrexit clrb 

exit os9 F$exit 



eoin 



emod 
equ * 



nam UnLink 

ttl Enhanced unlink command by Ron 
Lammardo 

ifpl 

use /dd/defs/os9defs 

endc 

typelang set prgrro+objct 

attrev set reent+revision 

revision set 1 

mod Eoffl , Mname , Typelang , Attrev , Star t , Da tend 

mname fcs /UnLink/ 

fcb 1 

xsave rmb 2 

rmb 256 
datend equ 
errmsg 

fee 'Error Unlinking :' 
errsz equ * -errmsg 

start 

stx <xsave save start of name 
clra any type/language 
os9 FjUnLink unlink it 
bcs unlnk020 if error... go print it 

unlnkOlO 

Ida ,x+ get next character 
cmpa V, was it a comma 
beq unlnkOlO 



TO BE CONTINUED NEXT MONTH. 



cmpa #$20 was it a space 

beq unlnkOlO 

cmpa t$Od was it a <cr> 

beq clrexit yes.. done 

leax -l,x back up and point to char 

bra start else get next module 

unlnk020 

pshs b,cc save message 

leax ernnsg;pcr get address of error message 
Idy t errsz get size off error message 
Ida #2 std error path 
os9 IjWrite send it 

bcs unlnk030 if error,. dont print rest 
Idx <xsave get start of module in error 
Idy 1200 max size to send 
Ida U std error path 
os9 IJWritLn send it 

unlnk030 
puis b;Cc 
bra exit exit with error 

clrexit clrb 

exit os9 F$exit 

emod 
eom equ * 

, Save, Merge, Del, Makdir. 
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SUBSCRIPTION RENEWAL / APPLICATION 



Subscription Renewal [ ] 



New Subscription [ ] 



Surname : 



First Name 



Title : 



Street: 
Suburb: 



State : 



Postcode 



Country 



Home Phone: 



Business Phone: 



Age Group (please tick) Under 18 [ ] 

36-45 [ ] 



18-25 [ ] 26-35 [ ] 

46-55 [ ] over 55 [ ] 



Do you run 0S9 Level 1[ ] 0S9 Level 2[ ] OSK[ ] OS9000[ ] 



Type of Computer for 0S9 : 



RAM 



K. 



Diskette 5,25 Number [ ] Tracks [ ] Sides [ ] 

Diskette 3.5 Number [ ] 720k [ ] 1.4meg [ ] 

Hard Drive Meg [ ] Controller Type " 

Printer Type/Model . 

Modem Type ; ^ 

Special Interests 



Can you contribute articles to this Newsletter ? 



Date 



/ 



y. 



Signature : 



Amount Enclosed: $ 



( $18-00 will cover you for 12 months ) 

( A$25-00 Overseas ) 
(CHEQUES PAYABLE TO: NATIONAL 0S9 USERGROUP) 



Please Return Completed Form to :- 



NATIONAL OS 9 USERGROUP 
c/o GORDON BENTZEN 
8 ODIN STREET 
SUNNYBANK QLD 4109 



OR 



NATIONAL 0S9 USERGROUP 
c/o J.P, JACQUET 
27 HAMPTON STREET 
DURACK QLD 4077 



